home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / biz / swood / FW_Font_eng.lha / FW_Font-e / FontLook.fw < prev    next >
Encoding:
Text File  |  1997-08-13  |  3.8 KB  |  155 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. Address='FinalW'
  4. Options results
  5. STATUS PORTNAME
  6. FW=result
  7. address=FW
  8. SIGNAL ON BREAK_C
  9. 'ShowMessage 2 0 "FontLook V2.80" "for individual fonts..." "(©) Heiko Schröder - 08/07/97" ":-)" "Ok" "(-:"'
  10. 'ShowMessage 1 1 "A T T E N T I O N !" "The macro needs an empty document!" "Clear the document?" "Yes" "Abort" ""'
  11. if result=2 then call BREAK_C
  12. Cleardoc Force
  13. 'ShowMessage 2 0 "codes or layout" "" "" "codes" "layout" ""'
  14. cl=result
  15. 'ShowMessage 2 0 "Screen output?" "" "" "normal" "speed" ""'
  16. ba=result
  17. 'ShowMessage 1 0 "Do you need perforation signs?" "" "" "Yes" "No" ""'
  18. lm=result
  19. IF ba=2 THEN;DO
  20. status WINDOW
  21. parse VAR result links oben breite hoehe minbreite minhoehe .
  22. sizewindow minbreite minhoehe
  23. End
  24. GetDocItemPrefs Decimal
  25. Punkt=Result
  26. If Punkt="Comma" then DocItemPrefs Decimal Period
  27. Font
  28. a=RC
  29. If a=0 then;do
  30. Type d2c(32)
  31. BackSpace
  32. status FontPath
  33. FullFontName=result
  34. status FontName
  35. ShortFontName=result
  36. IF ba=2 THEN View 20
  37. Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0
  38. SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1
  39. GraphicTool
  40. LinePrefs LineWt .5
  41. DrawLine 1 2 3.5 20 3.5
  42. DrawLine 1 2 26 20 26
  43. If lm=1 then DrawLine 1 .5 14.85 1 14.85
  44. TextTool
  45. If cl=1 then;do
  46. Do i=0 to 13
  47. SetTab i*1.3+0.8 Right
  48. End
  49. Justify Center
  50. Font Softsans
  51. FontSize 18
  52. Type ShortFontName;NewParagraph;NewParagraph
  53. DO a=33 BY 14 FOR 16
  54. Font Softsans
  55. FontSize 8
  56. zeile=""
  57. DO x=a TO a+13 WHILE x<256
  58. zeile=zeile|| d2c(9)||x|| d2c(32)|| d2c(x)
  59. END
  60. If x=256 then zeile=zeile|| d2c(9)
  61. Type zeile;NewParagraph
  62. Font ShortFontName
  63. FontSize 24
  64. zeile=""
  65. DO x=a TO a+13 WHILE x<256
  66. zeile=zeile|| d2c(9)|| d2c(x)
  67. END
  68. If x=256 then zeile=zeile|| d2c(9)
  69. Type zeile;NewParagraph
  70. END
  71. FontSize 12
  72. Type d2c(9);NewParagraph
  73. Font Softsans
  74. FontSize 8
  75. Justify Right
  76. Type Date(O)" - "FullFontName
  77. END
  78. If cl=2 then;do
  79. Justify Center
  80. Font Softsans
  81. FontSize 18
  82. Type ShortFontName;NewParagraph
  83. Justify Left
  84. Font FullFontName
  85. FontSize 8
  86. NewParagraph;Type "This is 8-point type - not easy to read!";NewParagraph
  87. FontSize 9
  88. Type "9-point type is about the smallest readable size.";NewParagraph
  89. FontSize 10
  90. Type "With 10-point type, we have a normal text size.";NewParagraph
  91. FontSize 12
  92. Type "With some fonts, 12-point type is easier to read.";NewParagraph
  93. FontSize 14
  94. Type "14-point type is good for subheadings.";NewParagraph
  95. FontSize 16
  96. Type "For larger subheadings, try 16-point type.";NewParagraph
  97. FontSize 18
  98. Type "18-point type makes nice small headlines.";NewParagraph
  99. FontSize 24
  100. Type "24-point type is for medium headlines.";NewParagraph
  101. FontSize 36
  102. Type "36-point is for larger ones.";NewParagraph
  103. FontSize 48
  104. Type "48-point almost shouts!";NewParagraph
  105. FontSize 60
  106. Type "60-point is huge!";NewParagraph
  107. FontSize 12
  108. Font SoftSans
  109. Type d2c(32);NewParagraph
  110. NewParagraph;Type "NORMAL";NewParagraph
  111. FontSize 10
  112. Font ShortFontName
  113. Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ";NewParagraph
  114. Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?";NewParagraph
  115. Type "The quick brown fox jumps over the lazy dog.";NewParagraph;NewParagraph;NewParagraph
  116. FontSize 12
  117. Font SoftSans
  118. Type "EXTENDED CHARACTERS";NewParagraph
  119. FontSize 10
  120. Font FullFontName
  121. DO j=128 BY 32 FOR 4
  122. Type XRange( d2c(j), d2c(j+31));NewParagraph
  123. End
  124. Status BodyTextHeight
  125. th=result
  126. FG=26.24-2.113-th
  127. FG=Trunc(FG*8/0.34)
  128. FontSize FG
  129. Type d2c(9)
  130. Font SoftSans
  131. FontSize 8
  132. Type R
  133. Justify Right
  134. Type Date(O)" - "FullFontName
  135. End
  136. call WH
  137. 'ShowMessage 2 1 "Whats next?" "" "" "save" "print" "abort"'
  138. If result=1 then Save
  139. If result=2 then Print
  140. END
  141. 'ShowMessage 2 0 "Thanks for using." "" "" "@-`-" "Please" ":-))"'
  142. 'ShowMessage 2 1 "© Heiko Schröder" "email: age@thepentagon.com" "http://yi.com/home/SchroederHeiko" "Okay" "Yes" ":-))"'
  143. EXIT
  144. BREAK_C:
  145. 'ShowMessage 1 1 "Macro aborted..." "" "" "I know..." "" ""'
  146. call WH
  147. EXIT
  148. WH:
  149. If ba=2 then;do
  150. View
  151. Redraw
  152. sizewindow breite hoehe
  153. End
  154. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  155. Return